home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / telecomm / bbsxdemo.lzh / MENUS_80 / SIG_IN.HLP < prev    next >
Text File  |  1993-01-03  |  1KB  |  71 lines
  1. SCRIPT
  2. ABORT OFF
  3.  
  4. ;  Test to see which File Area Level bits are turned on.
  5. DEFINE Loop
  6. DEFINE Count
  7. DEFINE Valid_sig
  8. DEFINE Split
  9.  
  10. SET Valid_sig = 0
  11. SET Count     = 0
  12.  
  13. FOR Loop = 1 to 32 DO
  14.    IF FILE_LEVEL (Loop) THEN
  15.       INCREASE Count (1)
  16.    ENDIF
  17. ENDFOR
  18.  
  19. IF Count > 16 THEN              ;3jan93r.s.
  20.    SET Split = Count / 2
  21. ENDIF                           ;3jan93r.s.
  22.  
  23. IF Count = 0 THEN
  24.    PRINTE 'Sorry, you do not have access to any file areas...'
  25.    PRINT  'Press your RETURN or ENTER key to exit...
  26.    GOTO Zero_sigs_
  27. ELSEIF Count = 1 THEN
  28.    PRINTE '&01, you have access to only one File Area,'
  29.    PRINT  'File SIG number '
  30. ELSE
  31.    PRINTE '&01, you have access to [Count] of our File areas,'
  32.    PRINTE 'here is a list of those File SIG numbers:'
  33.    PRINTE
  34. ENDIF
  35.  
  36. DEFINE Temp_1
  37.  
  38. SET Count = 1
  39. Print_sig_numbers_:
  40.    IF FILE_LEVEL (Count) THEN
  41. ;      EXPAND (Count, 2) ; 3jan93r.s. pads the right, not left
  42.       Temp_1 = count
  43.       set temp_1 = ' [count]'
  44. ;      PRINT '[Count], '
  45.       PRINT '[temp_1], '
  46.       INCREASE Valid_sig (1)
  47.    ENDIF
  48.  
  49.    IF Valid_sig = Split THEN
  50.       PRINTE
  51.    ENDIF
  52.  
  53.    INCREASE Count (1)
  54.  
  55.    IF Count > 32 THEN
  56.       GOTO End_of_sig_count_
  57.    ELSE
  58.       GOTO Print_sig_numbers_:
  59.    ENDIF
  60.  
  61.  
  62. End_of_sig_count_:
  63.    BACKSPACE (2)
  64.    PRINTE '.'
  65.  
  66. Zero_sigs_:
  67.  
  68. PRINT 'Enter The File SIG Number, L for "L"ist, or RETURN KEY to abort'
  69. DEFAULT_PATH
  70. EXIT
  71.